sitecodes<-read.csv("SITECODES.csv", header=TRUE)
str(sitecodes)
milkweeds<-read.csv("milkweedcounts0709BACI.csv", header=TRUE)
str(milkweeds)

levels(sitecodes$Site)
levels(milkweeds$Site)

addcodes<-merge(milkweeds, sitecodes, by=c("Site"), all.x=TRUE)
write.csv(addcodes, file="milkweedcounts0709BACI_Dataverse.csv")

